home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / fortran / peekpo.com / GET2.FOR < prev    next >
Encoding:
Text File  |  1989-10-12  |  404 b   |  13 lines
  1.       SUBROUTINE GET_IT(SCREEN,ICOLUMN,ILINE,ILENGTH,STRING)
  2.       character*(*) string              ! Capture into this
  3.       integer*2 screen(80,25)           ! This is the tube
  4.       integer*2 ic
  5. c
  6.       do 20 i=1,ilength
  7.       ic=screen(icolumn+i-1,iline)
  8. c         iatt=ishft(ic,-8)             ! This is the video attribute
  9.    20 string(i:i)=char(iand(ic,255))
  10. c
  11.       return
  12.       end
  13.